home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / e / dbplayerE.lha / testdb.e < prev   
Text File  |  1999-02-22  |  1KB  |  61 lines
  1.  
  2.  
  3. MODULE 'dbplayer/digibooster','dbplayer/dbplayer','utility/tagitem'
  4.  
  5. PROC main()
  6. DEF db:PTR TO digibooster,tagi:PTR TO tagitem,inst=0,tag:PTR TO tagitem,i=0
  7. DEF modname=0,channum=0,pattnum=0,instnames=0:PTR TO LONG
  8.  
  9.  
  10. VOID '$VER: TestDigiPlayer v2.0 (22.02.99) By WZP/DEFEAT'
  11.  
  12.  
  13. NEW db.init()
  14.  
  15. IF (db.loadfile(arg))=TRUE
  16.  
  17. tagi:=[DBMATTR_InstNum,0,DBMATTR_ModName,0,DBMATTR_ChanNum,0,DBMATTR_PattNum,0,DBMATTR_InstNames,0,TAG_DONE]
  18. tagi[0].data:={inst}
  19. tagi[1].data:={modname}
  20. tagi[2].data:={channum}
  21. tagi[3].data:={pattnum}
  22. tagi[4].data:={instnames}
  23.  
  24. db.playmodule()
  25.  
  26. db.getattr(tagi)
  27.  
  28.  
  29. WriteF('\n')
  30. WriteF('InstNum: \d\n',inst)
  31. WriteF('ChanNum: \d\n',channum)
  32. WriteF('PattNum: \d\n',pattnum)
  33. WriteF('ModName: "\s"\n',modname)
  34.  
  35. WriteF('\n\e[1mSamples name:\e[0m\n---------------------\n')
  36.  
  37. FOR i:=1 TO inst
  38.  
  39. WriteF('[\h[2]] - \s\n',i,instnames[i])
  40.  
  41. ENDFOR
  42.  
  43. WriteF('--------------------\n')
  44.  
  45. WriteF('\nPress Mouse Button To Quit!\n\n')
  46.  
  47. REPEAT
  48. UNTIL Mouse()=1 
  49.  
  50. db.stopmodule()
  51.  
  52. ELSE
  53. WriteF('Can''t load file!\n')
  54. ENDIF
  55.  
  56. db.dispose()
  57. END db
  58.  
  59.  
  60. ENDPROC
  61.